home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
H191.ZIP
/
CA29-3.EXE
/
DELPHITN.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-10-25
|
2KB
|
51 lines
LEGEND " Delphi.cmd" ; Put script name on status bar...
;
; ----- Delphi: Dial Delphi through TYMNET
; ----------------------------------------------------------------
; Note: You must create a logon file with MKLOGON in order to
; have this script automatically log you on... Please see the
; file SCRIPTS.DOC
; ----------------------------------------------------------------
; Note: This script is written to be FCALLed, executed directly (F2)
; or attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
; Note: This script requires the script TYMNET.CMD. TYMNET.CMD
; requires that a dialing directory entry number be prepared.
; Unless you modify TYMNET.CMD, the entry number defaults to 10.
; ----------------------------------------------------------------
; S0 is modified by this script.
; ----------------------------------------------------------------
;
; Call Tymnet (if not already dialed)
;
IF NOT ISSC "TYMNET" ; If script not available
MESS "TYMNET.CMD script not found"
EXIT ; terminate script
ENDIF
FCALL "TYMNET" ; Dial TYMNET (ifnot already dialed)
LEGEND " Connecting to Delphi"
;
; Connect to Delphi
;
TRANSMIT "delphi!" ; give telenet the host name identifier
;
; Set states
;
SET BSUPPRESS OFF ; Turn off blank line suppression
SET MASK ON ; Turn on high bit mask
SET CDISPLAY OFF ; Delphi command set
;
; Send name and password
;
WAITFOR "Username" ; Wait for "Username" to be received
;
; If we have a DELLOGON file, use it
;
SET TTHRU OFF ; Let psw be typed
IF ISSCFILE "DELLOGON" FCALL "DELLOGON"
;
; Exit - this script may be fcalled
;
IF FCALLED FRETURN ; Return to caller if called
ALARM ; Otherwise, sound alarm - we're done